Rem --------------------------------------------------------------------- Rem Rem QTW.TXT - QuickTime for Windows Visual Basic Declarations Rem Rem Version 1.0 Rem Rem (c) 1988-1992 Apple Computer, Inc. All Rights Reserved. Rem Rem --------------------------------------------------------------------- Rem Movie Controller MCDoAction action constants Rem -------------------------------------------- Global Const mcActionIdle = 1 Global Const mcActionDraw = 2 Global Const mcActionActivate = 3 Global Const mcActionDeactivate = 4 Global Const mcActionKey = 6 Global Const mcActionPlay = 8 Global Const mcActionGoToTime = 12 Global Const mcActionSetVolume = 14 Global Const mcActionGetVolume = 15 Global Const mcActionStep = 18 Global Const mcActionSetLooping = 21 Global Const mcActionGetLooping = 22 Global Const mcActionSetLoopIsPalindrome = 23 Global Const mcActionGetLoopIsPalindrome = 24 Global Const mcActionSetGrowBoxBounds = 25 Global Const mcActionControllerSizeChanged = 26 Global Const mcActionSetSelectionBegin = 29 Global Const mcActionSetSelectionDuration = 30 Global Const mcActionSetKeysEnabled = 32 Global Const mcActionGetKeysEnabled = 33 Global Const mcActionSetPlaySelection = 34 Global Const mcActionGetPlaySelection = 35 Global Const mcActionSetUseBadge = 36 Global Const mcActionGetUseBadge = 37 Global Const mcActionSetFlags = 38 Global Const mcActionGetFlags = 39 Global Const mcActionSetPlayEveryFrame = 40 Global Const mcActionGetPlayEveryFrame = 41 Global Const mcActionGetPlayRate = 42 Global Const mcActionBadgeClick = 44 Rem Movie Controller MCDoAction, action McActionSetFlags parameter, movie Rem controller structure parameter, lfActionFlags Rem --------------------------------------------------------------------- Global Const mcFlagSuppressStepButtons = 2 Global Const mcFlagSuppressSpeakerButton = 4 Global Const mcFlagsUseWindowPalette = 8 Rem Toolbox function NewMovieController and Movie Controller function Rem MCPositionController parameter controllerCreationFlags values, Rem movie controller structure parameter, lfControllerStateFlags Rem ----------------------------------------------------------------- Global Const mcTopLeftMovie = 1 Global Const mcScaleMovieToFit = 2 Global Const mcWithBadge = 4 Global Const mcNotVisible = 8 Rem Movie Controller function MCGetControllerInfo parameter mcInfoFlags Rem parameter, movie controller structure parameter, lfControllerInfoFlags Rem ---------------------------------------------------------------------- Global Const mcInfoHasSound = 32 Global Const mcInfoIsPlaying = 64 Global Const mcInfoIsLooping = 128 Global Const mcInfoIsInPalindrome = 256 Rem NewMovieFromFile flags Rem ---------------------- Global Const newMovieActive = 1 Global Const newMovieDontResolveDataRefs = 2 Global Const newMovieDontAskUnresolvedDataRefs = 4 Global Const newMovieDontAutoAlternates = 8 Rem Flags for SetMoviePlayHints Rem --------------------------- Global Const hintsScrubMode = 2 Global Const hintsInterpolateSound = 128 Rem Visual Basic Error Codes Rem ------------------------ Global Const ERR_INVALID_MOVIE = 31000 Rem QuickTime Error codes Rem --------------------- Global Const couldNotResolveDataRef = -2000 Global Const badImageDescription = -2001 Global Const badPublicMovieAtom = -2002 Global Const cantFindHandler = -2003 Global Const cantOpenHandler = -2004 Global Const badComponentType = -2005 Global Const noMediaHandler = -2006 Global Const noDataHandler = -2007 Global Const invalidMedia = -2008 Global Const invalidTrack = -2009 Global Const invalidMovie = -2010 Global Const invalidSampleTable = -2011 Global Const invalidDataRef = -2012 Global Const invalidHandler = -2013 Global Const invalidDuration = -2014 Global Const invalidTime = -2015 Global Const cantPutPublicMovieAtom = -2016 Global Const badEditList = -2017 Global Const mediaTypesDontMatch = -2018 Global Const progressProcAborted = -2019 Global Const movieToolboxUninitialized = -2020 Global Const wffileNotFound = -2021 Global Const cantCreateSingleForkFile = -2022 Global Const invalidEditState = -2023 Global Const nonMatchingEditState = -2024 Global Const staleEditState = -2025 Global Const userDataItemNotFound = -2026 Global Const maxSizeToGrowTooSmall = -2027 Global Const badTrackIndex = -2028 Global Const trackIDNotFound = -2029 Global Const trackNotInMovie = -2030 Global Const timeNotInTrack = -2031 Global Const timeNotInMedia = -2032 Global Const badEditIndex = -2033 Global Const internalQuickTimeError = -2034 Global Const cantEnableTrack = -2035 Global Const invalidRect = -2036 Global Const invalidSampleNum = -2037 Global Const invalidChunkNum = -2038 Global Const invalidSampleDescIndex = -2039 Global Const invalidChunkCache = -2040 Global Const invalidSampleDescription = -2041 Global Const dataNotOpenForRead = -2042 Global Const dataNotOpenForWrite = -2043 Global Const dataAlreadyOpenForWrite = -2044 Global Const dataAlreadyClosed = -2045 Global Const endOfDataReached = -2046 Global Const dataNoDataRef = -2047 Global Const noMovieInDataFork = -2048 Global Const invalidDataRefContainer = -2049 Global Const badDataRefIndex = -2050 Global Const noDefaultDataRef = -2051 Global Const couldNotUseAnExistingSample = -2052 Global Const featureUnsupported = -2053 Global Const noVideoTrackInMovie = -2054 Global Const noSoundTrackInMovie = -2055 Global Const soundSupportNotAvailable = -2056 Global Const maxControllersExceeded = -2057 Global Const unableToCreateMCWindow = -2058 Global Const insufficientMemory = -2059 Global Const invalidUserDataHandle = -2060 Global Const noPictureInFile = -2061 Global Const invalidPictureFileHandle = -2062 Global Const invalidPictureHandle = -2063 Global Const badDisplayContext = -2064 Global Const noErr = 0 Global Const mcOK = 0 Global Const mcEventNotHandled = 0 Global Const mcEventHandled = 1 Global Const controllerBoundsNotExact = -9996 Global Const editingNotAllowed = -9995 Rem QTInitialize error codes Rem ------------------------ Global Const QTI_OK = 0 Global Const QTI_FAIL_NOEXIST = 1 Global Const QTI_FAIL_CORRUPTDLL = 2 Global Const QTI_FAIL_286 = 3 Global Const QTI_FAIL_WIN30 = 4 Rem OpenFile constants Rem ------------------ Global Const OF_READ = &H0 Global Const OF_WRITE = &H1 Global Const OF_READWRITE = &H2 Global Const OF_SHARE_COMPAT = &H0 Global Const OF_SHARE_EXCLUSIVE = &H10 Global Const OF_SHARE_DENY_WRITE = &H20 Global Const OF_SHARE_DENY_READ = &H30 Global Const OF_SHARE_DENY_NONE = &H40 Global Const OF_PARSE = &H100 Global Const OF_DELETE = &H200 Global Const OF_VERIFY = &H400 Global Const OF_SEARCH = &H400 Global Const OF_CANCEL = &H800 Global Const OF_CREATE = &H1000 Global Const OF_PROMPT = &H2000 Global Const OF_EXIST = &H4000 Global Const OF_REOPEN = &H8000 Rem Structures Rem ---------- Type PointAPI x As Integer y As Integer End Type Type Rect left As Integer top As Integer right As Integer bottom As Integer End Type Type Int64 dwLo As Long dwHi As Long End Type Type OpenCPicParams rcRect As Rect hRes As Long vRes As Long wVersion As Integer wReserved1 As Integer dwReserved2 As Long End Type Type TimeBaseRecord p As Long End Type Global Const TIMEBASE_DEFAULT = -1& Type TimeRecord trvalue As Int64 trscale As Long trbase As Long End Type Type SoundDescription descSize As Long dataFormat As Long resvd1 As Long resvd2 As Integer dataRefIndex As Integer version As Integer revLevel As Integer vendor As Long numChannels As Integer sampleSize As Integer compressionID As Integer packetSize As Integer sampleRate As Long End Type Type ImageDescription idSize As Long CodecType As Long resvd1 As Long resvd2 As Integer dataRefIndex As Integer version As Integer revLevel As Integer vendor As Long temporalQuality As Long spatialQuality As Long idWidth As Integer idHeight As Integer hRes As Long vRes As Long dataSize As Long frameCount As Integer idName As String * 32 depth As Integer clutID As Integer End Type Rem Note: the following functions cannot be called from Visual Basic because Rem they operate through a callback function. Visual Basic does not support Rem the concept of a callback function. They are included only for Rem syntactic completeness, but should not be used. Rem ----------------------------------------------------------------------- Declare Sub VBSetMovieCoverProcs Lib "QTMovie.VBX" (ByVal mMovie As Long, ByVal UncoverProc As Long, ByVal CoverProc As Long, ByVal lRefCon As Long) Declare Function VBMCIsPlayerMessage Lib "QTMovie.VBX" (ByVal mcController As Long, ByVal hWnd As Integer, ByVal wMessage As Integer, ByVal wParam As Integer, ByVal lParam As Long) As Long Rem Sub and Function Declarations Rem ----------------------------- Declare Sub VBAddTime Lib "QTMovie.VBX" (lptrDst As TimeRecord, lptrSrc As TimeRecord) Declare Sub VBClearMoviesStickyError Lib "QTMovie.VBX" () Declare Function VBCloseMovieFile Lib "QTMovie.VBX" (ByVal mfMovie As Integer) As Long Declare Function VBClosePictureFile Lib "QTMovie.VBX" (ByVal pfPicture As Integer) As Long Declare Sub VBConvertTimeScale Lib "QTMovie.VBX" (lptrInout As TimeRecord, ByVal tsNewScale As Long) Declare Function VBCountUserDataType Lib "QTMovie.VBX" (ByVal udData As Integer, ByVal ostType As Long) As Long Declare Function VBDeleteMovieFile Lib "QTMovie.VBX" (ByVal lpstrFileSpec As String) As Long Declare Sub VBDisposeMovie Lib "QTMovie.VBX" (ByVal mMovie As Long) Declare Sub VBDisposeMovieController Lib "QTMovie.VBX" (ByVal mcController As Long) Declare Sub VBDisposePicture Lib "QTMovie.VBX" (ByVal phPicture As Integer) Declare Function VBDrawPicture Lib "QTMovie.VBX" (ByVal hDC As Integer, ByVal phThePict As Integer, lprcFrame As Rect, ByVal pprpProgressProc As Long) As Long Declare Function VBDrawPictureFile Lib "QTMovie.VBX" (ByVal hDC As Integer, ByVal pfPicture As Integer, lprcFrame As Rect, ByVal pprpProgressProc As Long) As Long Declare Function VBEnterMovies Lib "QTMovie.VBX" () As Long Declare Sub VBExitMovies Lib "QTMovie.VBX" () Declare Function VBGetMovieActive Lib "QTMovie.VBX" (ByVal mMovie As Long) As Integer Declare Sub VBGetMovieActiveSegment Lib "QTMovie.VBX" (ByVal mMovie As Long, tvStart As Long, tvDuration As Long) Declare Sub VBGetMovieBox Lib "QTMovie.VBX" (ByVal mMovie As Long, lprcMovieRect As Rect) Declare Function VBGetMovieCreationTime Lib "QTMovie.VBX" (ByVal mMovie As Long) As Long Declare Function VBGetMovieDataSize Lib "QTMovie.VBX" (ByVal mMovie As Long, ByVal tvStart As Long, ByVal tvDuration As Long) As Long Declare Function VBGetMovieDuration Lib "QTMovie.VBX" (ByVal mMovie As Long) As Long Declare Function VBGetMovieModificationTime Lib "QTMovie.VBX" (ByVal mMovie As Long) As Long Declare Function VBGetMoviePict Lib "QTMovie.VBX" (ByVal mMovie As Long, ByVal tvTime As Long) As Integer Declare Function VBGetMoviePosterPict Lib "QTMovie.VBX" (ByVal mMovie As Long) As Integer Declare Function VBGetMoviePosterTime Lib "QTMovie.VBX" (ByVal mMovie As Long) As Long Declare Function VBGetMoviePreferredRate Lib "QTMovie.VBX" (ByVal mMovie As Long) As Long Declare Function VBGetMoviePreferredVolume Lib "QTMovie.VBX" (ByVal mMovie As Long) As Integer Declare Function VBGetMoviesError Lib "QTMovie.VBX" () As Long Declare Function VBGetMoviesStickyError Lib "QTMovie.VBX" () As Long Declare Function VBGetMovieStatus Lib "QTMovie.VBX" (ByVal mMovie As Long, ByVal lpvReserved As Long) As Long Declare Function VBGetMovieTime Lib "QTMovie.VBX" (ByVal mMovie As Long, trRecord As TimeRecord) As Long Declare Function VBGetMovieTimeScale Lib "QTMovie.VBX" (ByVal mMovie As Long) As Long Declare Function VBGetMovieUserData Lib "QTMovie.VBX" (ByVal mMovie As Long) As Integer Declare Function VBGetNextUserDataType Lib "QTMovie.VBX" (ByVal udData As Integer, ByVal ostType As Long) As Long Declare Function VBGetPictureFileHeader Lib "QTMovie.VBX" (ByVal pfPicture As Integer, lprcFrame As Rect, lpocppHeader As OpenCPicParams) As Long Declare Function VBGetPictureFileInfo Lib "QTMovie.VBX" (ByVal pfPicture As Integer, idImageInfo As ImageDescription) As Long Declare Function VBGetPictureFromFile Lib "QTMovie.VBX" (ByVal pfPicture As Integer) As Integer Declare Function VBGetPictureInfo Lib "QTMovie.VBX" (ByVal phThePict As Integer, idImageInfo As ImageDescription) As Long Declare Function VBGetPicturePalette Lib "QTMovie.VBX" (ByVal phThePict As Integer) As Integer Declare Function VBGetSoundInfo Lib "QTMovie.VBX" (ByVal mMovie As Long, sdSoundInfo As SoundDescription) As Long Declare Function VBGetUserData Lib "QTMovie.VBX" (ByVal udData As Integer, lphData As Integer, ByVal ostType As Long, ByVal lIndex As Long, lplSize As Long) As Long Declare Function VBGetUserDataText Lib "QTMovie.VBX" (ByVal udData As Integer, lphData as Integer, ByVal ostType As Long, ByVal lIndex As Long, ByVal uRegionTag as Integer, lplSize As Long) As Long Declare Function VBGetVideoInfo Lib "QTMovie.VBX" (ByVal mMovie As Long, idVideoInfo As ImageDescription) As Long Declare Sub VBKillPicture Lib "QTMovie.VBX" (ByVal phPicture As Integer) Declare Function VBMCActivate Lib "QTMovie.VBX" (ByVal mcController As Long, ByVal hWnd As Integer, ByVal bActivate As Integer) As Long Declare Function VBMCDoAction Lib "QTMovie.VBX" (ByVal mcController As Long, ByVal uAction As Integer, lpvParams As Long) As Long Declare Function VBMCDraw Lib "QTMovie.VBX" (ByVal mcController As Long, ByVal hWnd As Integer) As Long Declare Function VBMCDrawBadge Lib "QTMovie.VBX" (ByVal mcController As Long, ByVal hrgnMovieRgn As Integer, lphrgnBadgeRgn As Integer) As Long Declare Function VBMCGetControllerBoundsRect Lib "QTMovie.VBX" (ByVal mcController As Long, lprcBounds As Rect) As Long Declare Function VBMCGetControllerInfo Lib "QTMovie.VBX" (ByVal mcController As Long, lplMcInfoFlags As Long) As Long Declare Function VBMCGetCurrentTime Lib "QTMovie.VBX" (ByVal mcController As Long, tsScale As Long) As Long Declare Function VBMCGetMovie Lib "QTMovie.VBX" (ByVal mcController As Long) As Long Declare Function VBMCGetVisible Lib "QTMovie.VBX" (ByVal mcController As Long) As Long Declare Function VBMCIdle Lib "QTMovie.VBX" (ByVal mcController As Long) As Long Declare Function VBMCIsControllerAttached Lib "QTMovie.VBX" (ByVal mcController As Long) As Long Declare Function VBMCKey Lib "QTMovie.VBX" (ByVal mcController As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long Declare Function VBMCNewAttachedController Lib "QTMovie.VBX" (ByVal mcController As Long, ByVal mMovie As Long, ByVal hWnd As Integer, ptUpperLeft As PointAPI) As Long Declare Function VBMCPositionController Lib "QTMovie.VBX" (ByVal mcController As Long, lprcMovieRect As Rect, lprcControllerRect As Rect, ByVal lControllerCreationFlags As Long) As Long Declare Function VBMCRemoveMovie Lib "QTMovie.VBX" (ByVal mcController As Long) As Long Declare Function VBMCSetActionFilter Lib "QTMovie.VBX" (ByVal mcController As Long, ByVal lpfnFilter As Long, ByVal lRefCon As Long) As Long Declare Function VBMCSetControllerAttached Lib "QTMovie.VBX" (ByVal mcController As Long, ByVal bAttach As Integer) As Long Declare Function VBMCSetControllerBoundsRect Lib "QTMovie.VBX" (ByVal mcController As Long, lprcBounds As Rect) As Long Declare Function VBMCSetMovie Lib "QTMovie.VBX" (ByVal mcController As Long, ByVal mMovie As Long, ByVal hWndMovieWindow As Integer, ptUpperLeft As PointAPI) As Long Declare Function VBMCSetVisible Lib "QTMovie.VBX" (ByVal mcController As Long, ByVal bShow As Integer) As Long Declare Function VBNewMovieController Lib "QTMovie.VBX" (ByVal mMovie As Long, lprcMovieRect As Rect, ByVal lControllerCreationFlags As Long, ByVal hWndParent As Integer) As Long Declare Function VBNewMovieFromDataFork Lib "QTMovie.VBX" (fpmMovie As Long, ByVal hFile As Integer, ByVal lOffset As Long, ByVal uiNewMovieFlags As Integer) As Long Declare Function VBNewMovieFromFile Lib "QTMovie.VBX" (fpmMovie As Long, ByVal mfMovie As Integer, lpsResID As Integer, lpstrResName As Any, ByVal uiNewMovieFlags As Integer, lpbDataRefWasChanged As Integer) As Long Declare Sub VBNormalizeRect Lib "QTMovie.VBX" (lprcRect As Rect) Declare Function VBOpenMovieFile Lib "QTMovie.VBX" (ByVal lpstrFileSpec As String, MovieFile As Integer, ByVal sOFlag As Integer) As Long Declare Function VBOpenPictureFile Lib "QTMovie.VBX" (ByVal lpstrFileSpec As String, pfPicture As Integer, ByVal sOFlag As Integer) As Long Declare Function VBPictureToDIB Lib "QTMovie.VBX" (ByVal pcThePict As Integer) As Integer Declare Function VBPrerollMovie Lib "QTMovie.VBX" (ByVal mMovie As Long, ByVal tvTime As Long, ByVal lfxRate As Long) As Long Declare Function VBPtInMovie Lib "QTMovie.VBX" (ByVal mMovie As Long, ptPoint As PointAPI) As Integer Declare Function VBQTInitialize Lib "QTMovie.VBX" (lplVersion As Long) As Long Declare Sub VBQTTerminate Lib "QTMovie.VBX" () Declare Sub VBSetMovieActive Lib "QTMovie.VBX" (ByVal mMovie As Long, ByVal bActive As Integer) Declare Sub VBSubtractTime Lib "QTMovie.VBX" (lptrDst As TimeRecord, lptrSrc As TimeRecord) Declare Function VBUpdateMovie Lib "QTMovie.VBX" (ByVal mMovie As Long) As Long